This analysis is from a sample of Twitter data with a hashtag for Japanese idols the user wants to see perform at a idol festival.
First we load up the data, then take the top 20 idols to plot.
We plot the data below using ggplot2 and plotly
p <- plot_ly(top20,
y = ~idol,
x = ~count,
name="Favorite idol you want for festival according to Twitter (2017)",
type="bar",
orientation='h'
)
p